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WATSNU 


DECUS Program Library Write-up DECUS No. 8-380 


Purpose: 1. 

To compare current core store and a binary tape without 
changing core. 

2. 

To reload a binary tape and illustrate locations which 
are changed in the process. 

General: 

WATSNU has two primary uses: (1) it is used during 
debugging to highlight differences between current program 
status and the last binary program tape and (2) it is used 
in the event that a system failure requires a program re¬ 
load in order to provide a trace of conditions at the time 
of failure. 

Equipment: 

PDP-8, 4K, ASR33, (H.S. Reader optional). 

Storage: 

1 Page, nominally 7400 thru 7577, plus standard binary 
loader. 

Procedure: 

Load WATSNU with standard binary loader. 

Load address: 7401 for compare mode. 

7400 for reload mode. 

Set switch register bit 0 for high speed or low speed 
loading per standard binary loading procedure. 

Load reader with binary tape to be compared/loaded. 

PRESS START 

Output: 

Output i.s comprised of one line of type where a location 
is (would be) changed by the loading process. The line 
shows the location, the current contents and the contents 
after (if) loading. 

Notes: 

WATSNU changes binary loader during execution and restores 
the loader when the load or comparison is complete. 






ORIGIN*7616 
CHK SUM= 7615 
/WATSNU 

/START AT 7400 FOR LOAD AND COMPARE 
/START AT 7401.FOR COMPARE ONLY 
*7400 


7 400 

7 300 

WATSNU* 

CLA 

CLL 



7401 

1 37 7 


TAD 


(4727) 


7 402 

3776 


DCA 

I 

(7737) 


7 40 3 

1375 


TAD 


< 4645) 


7404 

3774 


DCA 

I 

(7677) 




/BINARY 

LOADER HAS BEEN 

ALTERED 

7405 

1 373 


TAD 


(HEAD) 


7 40 6 

330 6 


DCA 


ADD 


7 40 7 

1 706 


TAD 

I 

ADD 


7410 

7450 


SNA 




741 1 

5772 


JMP 

I 

(7701) 


7412 

4271 


JMS 


TIPE 

/TYPE HEADER 

7413 

2306 


ISZ 


ADD 


7414 

5207 

*7420 

JMP 


.-5 


7420 

0000 

DO* 

0 



/FROM BIN LDR WITH 

7421 

3305 


DCA 


NSTAT 

/SAVE 

7422 

1 771 


TAD 

I 

(ORIGIN) 

7423 

3306 


DCA 


ADD 


7424 

1706 


TAD 

I 

ADD 

/GET WORD FROM CORE 

7425 

7041 


CIA 




7 42 6 

130 5 


TAD 


NSTAT 


7427 

7 650 


SNA 

CLA 


/TWO WORDS MATCH? 

7430 

5242 


JMP 


EXIT 

/YES 

7431 

130 6 


TAD 


ADD 


7432 

4251 


JMS 


TYPE 

/TYPE CORE ADD 

7433 

4277 


JMS 


SPACE 


7 434 

1 70 6 


TAD 

I 

ADD 


7435 

4251 


JMS 


TYPE 

/TYPE OLD STATE 

7 43 6 

4277 


JMS 


SPACE 


7437 

1 305 


TAD 


NSTAT 


7 440 

4251 


JMS 


TYPE 

/TYPE NEW STATE 

7 441 

4321 


JMS 


RETURN 


7442 

7604 

EXIT* 

LAS 




7443 

0370 


AND 


( 1 ) 

/MASK LSB OF SW REG 

7444 

7640 


SZA 

CLA 


/LOAD? 

7445 

5620 


JMP 

I 

DO 

/NO 

7446 

1 30 5 


TAD 


NSTAT 

/YES 

7447 

370 6 


DCA 

I 

ADD 


7450 

5620 


JMP 

I 

DO 

/RETURN 

7451 

0000 

TYPE* 

0 




7 4 52 

7104 


RAL 

CLL 



7 453 

3310 


DCA 


CHAR 


7454 

1367 


TAD 


( -4) 


7455 

3307 


DCA 


X 



2 




7 456 

1310 

A> 

TAD 


7457 

700 6 


RTL 


7460 

700 4 


RAL 


7461 

3310 


DCA 


7462 

1310 


TAD 


7463 

0366 


AND 


7464 

1 365 


TAD 


7465 

427 1 


JMS 


7466 

2307 


I SZ 


7467 

5256 


JMP 


7470 

5651 


JMP 

I 

7471 

0000 

TIPE, 

0 


7472 

604 6 


TLS 


7473 

60 41 


TSF 


7474 

5273 


JMP 


7475 

7200 


CLA 


7476 

5 67 1 


JMP 

I 

7 477 

0000 

SPACE, 

0 


7 500 

1 364 


TAD 


7501 

4271 


JMS 


7 502 

1364 


TAD 


7503 

4271 


JMS 


7 50 4 

5677 


JMP 

I 

7505 

0000 

NSTAT, 

0 


7 50 6 

0000 

ADD, 

0 


7507 

0000 

X, 

0 


7510 

0000 

CHAR, 

/ 

*7510 

0 


7510 

0000 

ALDON, 

0 


751 1 

17 63 


TAD 

I 

7512 

3271 


DCA 


7513 

1 362 


TAD 


7514 

3774 


DCA 

I 

751 5 

1361 


TAD 


751 6 

3776 


DCA 

I 



/BINARY 

LOADER 

7 517 

1271 


TAD 


7 520 

57 1 0 

/ 

JMP 

I 

7 521 

0000 

RETURN, 

0 


7522 

1 3 60 


TAD 


7 523 

427 1 


JMS 


7524 

1 357 

. 

TAD 


7525 

4271 


JMS 


7526 

5721 


JMP 

I 

7527 

021 5 

HEAD, 

215 


7530 

0212 


212 


7 531 

030 1 


''A 


7532 

0 30 4 


"D 


7 533 

0 30 4 


"D 


7534 

0240 


240 



CHAR 


CHAR 

CHAR 

(7) 

(260) 

II PE 

X /LAST OCTAL DIGIT? 

A /NO 

TYPE /RETURN 


1 

TIPE 

(240) 
TIPE 
(240) 
TIPE 
SPACE 


(CHKSUM) 

TIPE 

( 1215 ) 

(7677) 

(3616) 

(7737) 

RESTORED 

TIPE /GET CHECKSUM 
ALDON 


(215) 

TIPE 

( 212 ) 

TIPE 

RETURN 


3 






7535 

7536 

7537 
7 540 

7541 

7542 

7543 

7544 

7545 

7546 

7547 
7 550 

7551 

7552 

7553 
7557 
7 560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

7570 

7571 
7 572 

7573 

7574 

7575 

7576 

7577 


240 

240 

M C 

”0 

M R 

"E 

240 

240 

tiy 

"A 

,.p 

"E 

215 

212 

0 


0240 

0240 

0303 

0317 

0322 

0305 

0240 

0240 

0 324 

0301 

0320 

0 30 5 

021 5 

0212 

0000 

0212 

0215 

3616 

1215 

761 5 

0240 

0260 

0007 

7774 

000 1 

761 6 

7701 

7 527 

7677 

4645 

7737 

4727 


4 





